home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].po / DETECTOR.bas < prev    next >
BASIC Source File  |  1996-12-24  |  368b  |  2 lines
  1. 10  HOME : FOR X = 4096 TO 4148: READ A: POKE X,A: NEXT X: CALL 4096:T =  PEEK(4149): IF T = 0  THEN  PRINT "No Transwarp": DATA 56,32,31,254,176,23,156,53,16,175,0,255,188,201,84,208,11,175,1,255,188,201,87,208,3,238,53,16,96,162
  2. 20  IF T = 1  THEN  PRINT "Transwarp Exists": DATA    0,189,45,16,157,133,4,232,224,8,208,245,130,253,255,206,239,244,160,225,160,199,211